|
INVENTOR VBA : Datei per VB(A) reservieren (ab R6)
TSch am 28.07.2003 um 11:32 Uhr (0)
Hi ! Ich hab da nochma so ein Problem : Ich will per Code eine Datei reservieren (ausleihen). Da gibts ja eine Methode (Auszug aus der Hilfe ) : Method that reverts the file checked out by the caller. Syntax RevertReservedForWriteByMe() Die schlägt bei mir einfach fehl. Habe das probiert : Call ThisApplication.ActiveDocument.RevertReservedForWriteByMe Kommt Laufzeitfehler raus (siehe Bild) Weiß jemand, wie das wirklich funzt ? Noch 5 Tage bis zum Wochenende ! ------------------ Thomas Sch
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Datei per VB(A) reservieren (ab R6)
TSch am 28.07.2003 um 12:24 Uhr (0)
Hi daywlker ! habe ein Workaround probiert, was zu funzen scheint (?????) Un zwar so : Public Function AktivesDocReserviertVonMir() As Boolean Dim oDoc As Inventor.Document Set oDoc = ThisApplication.ActiveDocument Dim Antwort As VbMsgBoxResult If oDoc.ReservedForWrite = False Then Antwort = MsgBox( Datei ist zur Zeit nicht ausgeliehen _ & vbNewLine & Ausleihe erstellen ? , vbYesNo) End If If oDoc.ReservedForWriteByMe = True Then Antwort = vbNo AktivesDocReserviertVonMir = True End If If Antw ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Datei per VB(A) reservieren (ab R6)
TSch am 28.07.2003 um 13:02 Uhr (0)
Hi ! Klar hast Du recht, aber lieber gerade einen workaround als versuchen, die revert.... Kiste zum rennen zu bringen. Würde mich aber immer noch interessieren, was man damit anstellen kann (außer laufzeitfehlöer produzieren) Gruß ------------------ Thomas Sch
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Datei per VB(A) reservieren (ab R6)
TSch am 28.07.2003 um 15:11 Uhr (0)
Hi ! Leider hat sich mein Problem wieder ergeben : Das mit dem Workaround funzt nur für MultiUser=gemeinsam Ansonsten (bei semi-isolated) rennt der code oDoc.ReservedForWriteByMe = True voll an die wand. Bin also wieder am Anfang Sch......!!!!! Hilfäääääähhhh! Gruß ------------------ Thomas Sch
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : per VBA ein Bauteil in eine Baugruppe einfügen
TSch am 17.02.2010 um 09:22 Uhr (0)
Tach,es gibt noch die Möglichkeit, den "Einfügen Komponente" Befehl zu zünden,die Komponente "hängt" dann am Cursor und der Anwender kann die Komponente wie gewohnt platzieren.Hier mal ein Auszug, wie man das umsetzen kann :Dim oApp As Inventor.ApplicationDim oDoc As Inventor.DocumentDim InventorsLogicalFileName as string voller Dateiname der einzufügender DateiAchte darauf,ob evtl. die einzufügende Datei im Workspace zu finden ist !!!Set oApp = GetObject(, "Inventor.Application")Set oDoc = oApp.ActiveDocu ...
|
| In das Form Inventor VBA wechseln |
